<script>on mouseUpvisual effect dissolve very fastgo prevend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>34</top>
<right>474</right>
<bottom>85</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Generate the Subgroup</name>
<script>on mouseUpglobal grouptable, currentsput group(100) into aput line 1 of grouptable into totrepeat with i=1 to totput the loc of cd fld i into line i of currentsend repeatend mouseUp</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>206</left>
<top>43</top>
<right>298</right>
<bottom>288</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>elements defaults</name>
<script></script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>370</left>
<top>264</top>
<right>482</right>
<bottom>287</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Reset Screen</name>
<script>on mouseUpglobal grouptable, currentsput line 1 of grouptable into ord-- lock screenrepeat with i=1 to ordset the loc of cd fld i to (line i of fld "elements defaults")set cursor to busyend repeatset cursor to arrowput fld "elements defaults" into currents-- unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>392</left>
<top>145</top>
<right>462</right>
<bottom>179</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUppush cardgo to card "machinehelp"end mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>91</top>
<right>473</right>
<bottom>133</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Close Under Conjugation</name>
<script>on mouseUpglobal grouptable, currentsput group(200) into aput line 1 of grouptable into totrepeat with i=1 to totput the loc of cd fld i into line i of currentsend repeatend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>306</left>
<top>43</top>
<right>422</right>
<bottom>290</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>elements current</name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>370</left>
<top>194</top>
<right>482</right>
<bottom>217</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quotient Group</name>
<script>on mouseUpglobal cosets, grouptable, RGBs, moved, PATs, gOKToColorizeset cursor to busyput group(300) into normalif normal is "NoElems" thenplay "Dizzy"answer "You need to put some elements into the Subgroup Machine before you form the quotient group."else if normal is "NoSub" thenplay "Dizzy"answer "This is not a subgroup." with "Cancel"elseif normal is "NoConj" thenplay "Wo"answer "This subgroup is not normal. Shall I continue anyway?" with¬"Yes" or "Forget it"if it is "Yes" then put "OK" into normalput "notnor" into movedelseput "normal" into movedend ifif normal is "OK" thenset cursor to watchput group(301) into aset cursor to busy-- go prevput line 1 of grouptable into totput (tot+1)*(tot+1) into totif gOKToColorize is empty thenrepeat with i=2 to totset cursor to busyput short name of cd fld i into cnameput word (item cname of cosets) of RGBs into thecolorcolorizeHC "Colorfill",(the rect of cd fld i),thecolorend repeatlock screenunlock screenelseset cursor to busylock screenchoose rect toolshow bg btn 9set filled to truerepeat with i=2 to totset cursor to busyput short name of cd fld i into cnameset the pattern to item (item cname of cosets) of PATsput (the rect of cd fld i) into rrdrag from (item 1 of rr & "," & item 2 of rr) to (item 3 of rr & "," & item 4 of rr)end repeatunlock screenend ifend ifend ifchoose browse toolend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>377</left>
<top>94</top>
<right>471</right>
<bottom>132</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mousedownsend mousedown to bg btn "Close Under Conjugation"end mousedownon mouseupsend mouseup to bg btn "Close Under Conjugation"end mouseup</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>376</left>
<top>41</top>
<right>475</right>
<bottom>80</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Generate</name>
<script>on mousedownsend mousedown to bg btn "Generate the Subgroup"end mousedownon mouseupsend mouseup to bg btn "Generate the Subgroup"end mouseup</script>
<script>on mouseUpglobal grouptable, currentssend mouseup to bg btn "Reset Screen"put group(150) into aput line 1 of grouptable into totrepeat with i=1 to totput the loc of cd fld i into line i of currentsend repeatend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>16</id>
<text>Close UnderConjugation</text>
</content>
<content>
<layer>background</layer>
<id>17</id>
<text>Generate theSubgroup</text>
</content>
<name></name>
<script>on releasedglobal currentsput the param of 1 into xput group(100+x) into adjustmentput the loc of cd fld x into line x of currentsend releasedon opencardglobal currentsput bg fld "elements current" into currentspass opencardend opencardon closecardglobal currentsput currents into bg fld "elements current"pass closecardend closecardon dosetupglobal grouptable, dx, dyput line 1 of grouptable into ordlock screen-- domenu "New Field"-- put the number of card fields into which-- set the name of card field which to "From"-- put "Subgroup Machine" into card field "From"-- domenu "New Field"-- put the number of card fields into which-- set the name of card field which to "To"repeat with i = 1 to ordset cursor to busydomenu "New Field"put the number of card fields into whichset the name of card field which to iset the style of card field which to shadowset the script of card field which to ¬("on mousedown" & return & "repeat while the mouse is down" & return ¬& "set the loc of the target to the mouseLoc" & return & ¬"end repeat" & return & "released" && which & return ¬& "end mousedown")go prevselect text of card field (i+1)doMenu "Copy Text"go nextselect text of card field whichdoMenu "Paste Text"set the textalign of card field which to centerset the rect of card field which to 20,(23+(dx*i)),(20+dy),(23+(dx*(i+1)))set lockText of card field which to trueput (the loc of card fld which & return) after fld "elements defaults"put (the loc of card fld which & return) after fld "elements current"end repeatchoose browse toolset cursor to arrowunlock screen with visual effect dissolveend dosetup</script>
